
On *:JOIN:#: {
  Set %PunkList $read(PunkList.txt,s, $nick $+ )
  If ( %PunkList != $null ) {
    /kick # $nick [Judgement~Punk~List]

  }